CommonEvent 8026
Name = "アグレイブ（装置搾精）"

  999([3838])
  ShowPicture([5, "80_agrave_st01", 0, 0, 0, 0, 100, 100, 0, 0])
  MovePicture([5, nil, 0, 0, 0, 0, 100, 100, 255, 0, 30, true])
  ShowTextAttributes(["agrave_fc1", 0, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["Do you desire pleasure...?"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["O... please..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["Understood."])
  ShowText(["Then, let's begin the milking operation......"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["An arm extends and lifts my defenseless body."])
  ShowText(["Thus, I was drawn into the interior of Agrave's sphere――"])
  PlayBGM(["RPG::BGM(@name=\"ero1\", @volume=100, @pitch=100)"])
  ShowPicture([5, "ev_agrave_ha1", 0, 0, 0, 0, 100, 100, 0, 0])
  MovePicture([5, nil, 0, 0, 0, 0, 100, 100, 255, 0, 30, true])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["U... Ugh..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["This is inside Agrave's sphere."])
  ShowText(["I am attached to the device and restrained."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["L-Let me go......"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["No matter how much I twist and struggle, I can't do anything against the strong restraints."])
  ShowText(["At that moment, Agreave's main body spoke to me."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["We will now conduct the ejaculation test."])
  ShowText(["We will stimulate your male organ and induce ejaculation."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["N-no way..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["By conducting repeated experiments, we should be able to optimize the method."])
  ShowText(["First, let's use the standard type of ejaculation machine..."])
  ShowPicture([5, "ev_agrave_ha2", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["What extends toward my groin is a tube-like device."])
  ShowText(["It seems that a cylindrical insertion machine is attached at the tip――"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["Now, let's begin the ejaculation process."])
  ShowText(["First, we will provide stimulation through suction and extract the semen."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["S-stop――ahhh...!"])
  PlayBGS(["RPG::BGS(@name=\"mon_hsean11_innerworks_c1\", @volume=80, @pitch=100)"])
  ShowPicture([5, "ev_agrave_ha3", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The cylindrical ejaculation device envelops my penis, covering it all the way to the base."])
  ShowText(["The inner wall has a slippery texture, tightly constricting from all sides."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["W-what is this... take it off...!"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["With the pressure stimulation from the special pump, it will lead to ejaculation instantly."])
  ShowText(["You will reach climax in about 20 seconds, so please relax."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["N-no way――ah... aahhh...!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The ejaculation device begins to operate, and the inner wall contracts like waves."])
  ShowText(["It feels like my penis is being kneaded with a squelching sound."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The internal pressure rises, and the sensation of suction intensifies."])
  ShowText(["This is a stimulation that relentlessly drives a man to climax in a short period of time――"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["I-it feels good... ahhh!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["My entire penis is being stroked, and I shudder in response."])
  ShowText(["Before I knew it, a sweet feeling of release was welling up――"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["I-I can't hold it back... ahhh...!"])
  PlayBGS(["RPG::BGS(@name=\"\", @volume=80, @pitch=100)"])
  CallCommonEvent([104])
  ShowPicture([5, "ev_agrave_ha4", 0, 0, 0, 0, 100, 100, 255, 0])
  CallCommonEvent([105])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["And then, I was unexpectedly brought to climax."])
  ShowText(["I release my semen into the device that wraps around my penis, pulsating with each thrust."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["It is truly a pleasurable motion designed to mechanically force a man to climax."])
  ShowText(["I was easily brought to orgasm, and my semen was being sucked away――"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["U...ugh..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The mechanical milking denies my humanity."])
  ShowText(["Overwhelmed by the misery, I couldn't help but sob――"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["Climax confirmed in 15 seconds……"])
  ShowText(["In this test, we have collected basic data."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["Stimulation to the urethra seems to have a greater effect."])
  ShowText(["Through self-evolution, I have added urethral stimulation functions to the milking device――"])
  ShowPicture([5, "ev_agrave_hb1", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["A different milking machine extends towards my groin than before."])
  ShowText(["It still has a shape for inserting into the penis, but a protrusion can be seen in the center."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["No…… Aaaah……"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["Now, we will conduct Test 2."])
  ShowText(["Please relax and focus on the sensations in your male organ."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Stop it…… Aaaahhh……"])
  PlayBGS(["RPG::BGS(@name=\"mon_hsean17_sigoki\", @volume=80, @pitch=100)"])
  ShowPicture([5, "ev_agrave_hb2", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Squelch…… the milking device has engulfed my penis."])
  ShowText(["At the same time, the soft protrusion in the center invades my urethra."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["A tingling discomfort makes my hips shudder."])
  ShowText(["It feels as if I am being violated from the inside of my penis――"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Hah…… Ughh……!"])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["The sensory values are in disarray."])
  ShowText(["However, it seems that the sensations are greatly fluctuating towards pleasure."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The inner walls enveloping the penis are contracting and kneading with a squelching sound."])
  ShowText(["A tube has slipped into the urethra, providing stimulation from the inside as well."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Hah... ah, ahhhh...!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Suddenly, a maddening sensation surged from deep within my waist."])
  ShowText(["The feeling of release quickly built up, and my penis pulsed and twitched—"])
  CallCommonEvent([104])
  ShowPicture([5, "ev_agrave_hb3", 0, 0, 0, 0, 100, 100, 255, 0])
  CallCommonEvent([105])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Throbbing, semen was being released."])
  ShowText(["In an instant, I was forced to release my semen a second time—"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Auuuu..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["Test 2, complete..."])
  ShowText(["Good data has been collected."])
  PlayBGS(["RPG::BGS(@name=\"\", @volume=80, @pitch=100)"])
  ShowPicture([5, "ev_agrave_hb4", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["The penis was pulled out from the extracting device."])
  ShowText(["The inside of the tube was filthy, coated with semen."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["That white fluid was proof that I had been made to ejaculate helplessly by a strange machine—"])
  ShowText(["Overwhelmed by humiliation, I trembled."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["...Next, let's change things up a bit."])
  ShowText(["Pleasure pulses will be sent to the male organ and all erogenous zones."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["P-pleasure pulses...?"])
  ShowText(["W-what... is that...?"])
  ShowPicture([5, "ev_agrave_hc1", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["A strange device was attached to my groin, causing me to panic."])
  ShowText(["It felt as if my male organ itself had been restrained—"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["N-No, stop it..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["Now, let's flow in the pleasure pulses."])
  ShowText(["Rank 1, executing..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["As the machine activated, the restraining device emitted a faint light—"])
  PlayBGS(["RPG::BGS(@name=\"mon_hsean24_machine1\", @volume=80, @pitch=100)"])
  ShowPicture([5, "ev_agrave_hc2", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Ah... aahhhhhh—!!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["A wave of vibrations coursed through my entire body."])
  ShowText(["The vibrations infiltrated my groin, providing a sweet, tingling sensation."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Hya... Aahhhh~~!!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["I screamed and my body jolted uncontrollably."])
  ShowText(["My penis trembles and starts pulsing against my will――"])
  CallCommonEvent([104])
  ShowPicture([5, "ev_agrave_hc3", 0, 0, 0, 0, 100, 100, 255, 0])
  CallCommonEvent([105])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["And then, a large amount of semen bursts out with a splatter."])
  ShowText(["It was a mechanical release sensation, completely different from the pleasure of ejaculation――"])
  PlayBGS(["RPG::BGS(@name=\"\", @volume=80, @pitch=100)"])
  ShowPicture([5, "ev_agrave_hc4", 0, 0, 0, 0, 100, 100, 255, 0])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Haa... ahh..."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Having my semen continuously extracted, I become completely limp."])
  ShowText(["However, it wasn't just my body that was beaten down."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["I learned that I am a miserable being who will immediately spit out semen when stimulated――"])
  ShowText(["This was taught not only to my body but also to my mind."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["My dignity as a man was trampled, and I was even shedding tears."])
  ShowText(["But no matter how much I lamented, I couldn't escape this ejaculation experiment――"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["U... Ugh..."])
  ShowTextAttributes(["agrave_fc1", 1, 0, 2])
  ShowText(["\\n<Agrave>"])
  ShowText(["Ejaculation confirmed, Test 3 complete......"])
  ShowText(["As a result, a new function was added to the ejaculation device......"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["\\n<Luka>"])
  ShowText(["Please stop...... Aahhh...!!"])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["Thus, I was endlessly milked by Agrave."])
  ShowText(["No two ejaculation devices were the same, and I was always made to ejaculate with different stimuli."])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["As I continued to reach climax endlessly, morning came――"])
  ShowText(["Finally liberated, I ended up sleeping for several days."])
  FadeoutScreen([])
  ErasePicture([5])
  ErasePicture([6])
  FadeoutBGS([2])
  ShowTextAttributes(["", 0, 0, 2])
  ShowText(["・・・・・・・・"])
  CallCommonEvent([4000])
  Empty([])
